home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesS-T.lzh / Titan.lha / TitanHd / Install < prev    next >
Text File  |  2001-09-22  |  3KB  |  171 lines
  1. ;****************************
  2.  
  3. (set #sub-dir "data")      ;sub directory containing data files
  4. (set #readme-file "Readme")  ;name of readme file
  5. (set #docs-file "Docs")  ;name of readme file
  6. (set #cleanup "")    ;files to delete after install
  7.  
  8. ;****************************
  9.  
  10. ;----------------------------
  11. ; Checks if given program is reachable via the path
  12. ; if not abort install
  13. ; IN:  #program - to check
  14. ; OUT: -
  15.  
  16. (procedure P_chkrun
  17.   (if
  18.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  19.     ("")
  20.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  21.   )
  22. )
  23.  
  24. ;----------------------------
  25. ; Wait for inserting disk
  26. ; IN:  #AD_disk - name of disk
  27. ; OUT: -
  28.  
  29.  
  30. ;****************************
  31.  
  32. (if
  33.   (exists #readme-file)
  34.   (if 
  35.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  36.     ("")
  37.     (run ("SYS:Utilities/More %s" #readme-file))
  38.   )
  39. )
  40.  
  41. (set #program "WHDLoad")
  42. (P_chkrun)
  43.  
  44. (set @default-dest
  45.   (askdir
  46.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  47.     (help @askdir-help)
  48.     (default @default-dest)
  49.     (disk)
  50.   )
  51. )
  52. (set #dest (tackon @default-dest @app-name))
  53. (if
  54.   (exists #dest)
  55.   (
  56.     (set #choice
  57.       (askbool
  58.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  59.         (default 1)
  60.         (choices "Delete" "Skip")
  61.         (help @askbool-help)
  62.       )
  63.     )
  64.     (if
  65.       (= #choice 1)
  66.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  67.     )
  68.   )
  69. )
  70. (makedir #dest
  71.   (help @makedir-help)
  72.   (infos)
  73. )
  74.  
  75. ;----------------------------
  76.  
  77. (copyfiles
  78.   (help @copyfiles-help)
  79.   (source ("%s.slave" @app-name))
  80.   (dest #dest)
  81. )
  82.  
  83.  
  84. (if
  85.   (exists ("%s.GlowIcon" @app-name))
  86.   (set #icon
  87.     (askchoice
  88.       (prompt "\nWhich icon do you like to install ?\n")
  89.       (default 0)
  90.       (choices "Normal" "GlowIcon")
  91.       (help @askchoice-help)
  92.     )
  93.   )
  94.   (set #icon 0)
  95. )
  96. (select #icon
  97.   (set #icon ("%s.inf" @app-name))
  98.   (set #icon ("%s.GlowIcon" @app-name))
  99. )
  100. (copyfiles
  101.   (help @copyfiles-help)
  102.   (source #icon)
  103.   (newname ("%s.info" @app-name))
  104.   (dest #dest)
  105. )
  106. (if
  107.   (exists #readme-file)
  108.   (copyfiles
  109.     (help @copyfiles-help)
  110.     (source #readme-file)
  111.     (dest #dest)
  112.   )
  113. )
  114. (if
  115.   (exists ("%s.info" #readme-file))
  116.   (copyfiles
  117.     (help @copyfiles-help)
  118.     (source ("%s.info" #readme-file))
  119.     (dest #dest)
  120.   )
  121. )
  122.  
  123. (if
  124.   (exists #docs-file)
  125.   (copyfiles
  126.     (help @copyfiles-help)
  127.     (source #docs-file)
  128.     (dest #dest)
  129.   )
  130. )
  131. (if
  132.   (exists ("%s.info" #docs-file))
  133.   (copyfiles
  134.     (help @copyfiles-help)
  135.     (source ("%s.info" #docs-file))
  136.     (dest #dest)
  137.   )
  138. )
  139.  
  140.  
  141. (if
  142.   (= #sub-dir "")
  143.   ("")
  144.   (
  145.     (set #dest (tackon #dest #sub-dir))
  146.     (makedir #dest
  147.       (help @makedir-help)
  148.     )
  149.   )
  150. )
  151.  
  152.  
  153.  
  154.  (copyfiles
  155.   (help @copyfiles-help)
  156.   (source "titan.save")
  157.   (dest #dest)
  158. )
  159. ;----------------------------
  160.  
  161. (message "Insert Titan disk in DF0:")
  162.  
  163. (copyfiles
  164.   (help @copyfiles-help)
  165.   (source ("Titan by Titus:"))
  166.   (dest #dest)
  167.   (all)
  168. )
  169.  
  170. (exit)
  171.